home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / packlib.data < prev    next >
Encoding:
Text File  |  1994-05-10  |  1.4 KB  |  9 lines
  1.        
  2. #(#! 
  3. (lisp::in-package (lisp::quote user::lisp))#! 
  4. (lisp::export (lisp::quote (lisp::find-all-symbols lisp::do-symbols lisp::do-external-symbols lisp::do-all-symbols)))#! 
  5. (lisp::export (lisp::quote (lisp::apropos lisp::apropos-list)))#! 
  6. (lisp::in-package (lisp::quote lisp::system))
  7. #(lisp::*package* lisp::let lisp::if lisp::packagep lisp::find-package lisp::string :internal :external system::coerce-to-package lisp::multiple-value-bind system::package-size lisp::declare lisp::fixnum lisp::dotimes lisp::+ lisp::progn lisp::setq lisp::< system::package-internal system::package-external lisp::- lisp::when lisp::null lisp::go lisp::car lisp::cdr lisp::dolist system::.v (lisp::list-all-packages) lisp::do-symbols :start2 :end2 system::find-declarations system::substringp system::print-symbol-apropos (system::%init . #((system::warn-version 0) (lisp::proclaim (lisp::quote (lisp::optimize (lisp::safety 2) (lisp::space 3)))) (system::mm (lisp::quote system::coerce-to-package) 0) (system::mfsfun (lisp::quote lisp::find-all-symbols) 1 1) (system::mm (lisp::quote lisp::do-symbols) 2) (system::mm (lisp::quote lisp::do-external-symbols) 3) (system::mm (lisp::quote lisp::do-all-symbols) 4) (system::mfsfun (lisp::quote system::substringp) 5 2) (system::mfsfun (lisp::quote system::print-symbol-apropos) 6 1) (system::mf (lisp::quote lisp::apropos) 7) (system::mfvfun (lisp::quote lisp::apropos-list) 8 513))))
  8. )
  9.